* buffer.c (fix_overlays_before): Fix list-walking bug in 05-19 change.

diff --git a/src/buffer.c b/src/buffer.c
index 39d8d957a7569523f263f03bfded025104ea03bb..103715c80c8fa36973446e1c3a471d959559d2f2 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -3424,7 +3424,8 @@ fix_overlays_before (bp, prev, pos)
          Lisp_Object found = tail;
 
          /* Unlink the found overlay.  */
-         XSETCDR (parent, XCDR (found));
+         tail = XCDR (found);
+         XSETCDR (parent, tail);
          /* Move an overlay at RIGHT_PLACE to the next of the found one,
             and link it into the right place.  */
          if (NILP (right_pair))